library(ggplot2)
head(diamonds)
names(diamonds)
gg <- ggplot(diamonds,aes(x=price,y=carat)) + geom_point(color="brown4")
gg <- gg + ggtitle("Diamonds Carat & Price")
gg <- gg + labs("Diamonds Carat & Price")
gg <- gg + theme(plot.title = element_text(size=20,face ="bold"))
gg <- gg + labs(x="Price in Dollar",y="Catar")
gg <- gg + theme(axis.ticks.y = element_blank(),axis.text.y =element_blank())
gg <- gg + theme(axis.text.x = element_text(angle = 50,size = 10,vjust = 0.5))
gg <- gg + theme(axis.text.x = element_text(colour="chocolate",vjust = 0.45),axis.text.y = element_text(color = "brown1",vjust = 0.45))
gg <- gg + ylim(0,0.8) + xlim(250,1000) 
print(gg)
